bib_datatable <- function(M, fields = c("SR","TI"), with_link = TRUE){
  require(DT)
  datatable(M, )
}
